home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Moscow ML 1.31 / source code / mosml / src / test / utest1.sml < prev    next >
Encoding:
Text File  |  1996-07-03  |  167 b   |  8 lines  |  [TEXT/R*ch]
  1. type t = int;
  2. val tOfint = fn x => x;
  3. val intOft = fn x => x;
  4. val ** : int * int -> int = op *;
  5.  
  6. type 'z t_tagged = t * 'z;
  7. datatype 'a xxx = A of t | B of int * int;
  8.